(when (not (= (vector-length command-line-arguments) 1))
   (display "Usage: monos -f projection.scm generator-file\n")
   (exit))

(let* ((file (vector-ref command-line-arguments 0))
       (uri (file->uri file))
       (ideal (unmarshall (parse-xml-from-uri->document uri)) ) )
   (write (monomial-tree->monomial-ideal (monomial-ideal->monomial-tree ideal)))
   (newline) )


